unit FormPaySale;

interface

uses
   Classes, Types, Forms, FramePaySale,SysUtils, Controls, FrameMainEdit;

type
   TfrmPaySale = class(TForm)
        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    private
        { Private declarations }
        Frame: TfrmePaySale;
    public
        { Public declarations }
        constructor Create(AOwner: TComponent; arr_IdSale :TIntegerDynArray); reintroduce;
        function GetCloseMode: byte;
    end;

implementation

{$R *.dfm}

constructor TfrmPaySale.Create(AOwner: TComponent; arr_IdSale :TIntegerDynArray);
begin
    inherited Create(AOwner);
    Frame := TfrmePaySale.Create(AOwner, arr_IdSale);
    Frame.Parent := self;
end;

procedure TfrmPaySale.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    CanClose := Frame.CloseQuery;
end;

function TfrmPaySale.GetCloseMode: byte;
begin
    Result := Frame.GetCloseMode;
end;

end.
